home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
lisp
/
kcl
/
kcl.lha
/
cmpnew
/
cmpeval.data
< prev
next >
Wrap
Text File
|
1987-01-17
|
3KB
|
147 lines
#(
#!
(lisp::in-package 'user::system)
#!
(lisp::export '(system::define-compiler-macro system::undef-compiler-macro system::define-inline-function))
#!
(lisp::in-package 'system::compiler)
lisp::progn
compiler::c1progn
compiler::c1special
compiler::c2progn
compiler::c2
system::structure-ref
compiler::c1structure-ref
compiler::c1
compiler::structure-ref
compiler::c2structure-ref
compiler::wt-structure-ref
compiler::wt-loc
system::structure-set
compiler::c1structure-set
compiler::structure-set
compiler::c2structure-set
"#.*CMPERR-TAG*"
compiler::location
:type
compiler::vv
lisp::lambda
system::|#,|
"Sharp-comma-macro was found in a bad place."
"The function ~s is illegal."
compiler::*cmperr-tag*
compiler::*c1nil*
compiler::*c1t*
compiler::call-local
:sp-change
compiler::info
compiler::c1conditional
compiler::compiler-macro
lisp::funcall
lisp::quote
system::structure-access
lisp::elt
system::list-nth
"Sharp-comma-macro was found in a bad place."
compiler::no-sp-change
compiler::arg-types
lisp::string
lisp::character
lisp::array
lisp::vector
"Type mismatch was found in ~s."
"Type mismatch was found in ~s."
compiler::call-global
compiler::call-lambda
compiler::*exit*
compiler::*last-label*
1
compiler::*unwind-exit*
compiler::*compiler-output1*
0
compiler::*vs*
compiler::*max-vs*
compiler::*level*
compiler::*next-cmacro*
compiler::*reservation-cmacro*
compiler::*base-used*
compiler::*safe-compile*
compiler::*reservations*
compiler::*value-to-go*
compiler::trash
compiler::*inline-blocks*
(lisp::t)
(lisp::t lisp::t lisp::t)
lisp::fixnum
compiler::fixnum-value
compiler::character-value
lisp::long-float
compiler::long-float-value
lisp::short-float
compiler::short-float-value
system::putprop
lisp::caddr
system::defmacro*
'compiler::compiler-macro
(compiler::tmp0 compiler::tmp1 compiler::tmp2 compiler::tmp3 compiler::tmp4 compiler::tmp5 compiler::tmp6 compiler::tmp7 compiler::tmp8 compiler::tmp9)
compiler::*compiler-temps*
(lisp::&optional lisp::&rest lisp::&key lisp::&aux)
"TMP"
compiler::compiler
"The parameter ~s for the inline function ~s is illegal."
lisp::list
lisp::defun
system::define-compiler-macro
lisp::list*
'lisp::let
2
compiler::c1expr*
compiler::c1expr
compiler::make-info
compiler::object-type
compiler::c1nil
compiler::c1t
compiler::c1symbol-fun
compiler::c1lambda-fun
compiler::c2expr
compiler::c2expr*
compiler::c2expr-top
compiler::c2expr-top*
compiler::c1progn*
compiler::c1args
compiler::c1structure-ref1
compiler::c1constant-value
system::undef-compiler-macro
system::define-inline-function
compiler::add-info
compiler::add-object
compiler::add-constant
compiler::c1var
compiler::cmperr
compiler::c1local-fun
compiler::get-local-return-type
compiler::get-local-arg-types
compiler::and-form-type
compiler::cmp-expand-macro
compiler::inline-possible
compiler::cmp-eval
system::fixnump
compiler::get-return-type
compiler::get-arg-types
compiler::check-form-type
lisp::aref
compiler::type-and
compiler::cmpwarn
system::aset
compiler::c1lambda-expr
compiler::c2call-global
compiler::wt1
compiler::reset-top
compiler::add-symbol
compiler::inline-args
compiler::unwind-exit
compiler::close-inline-blocks
lisp::typep
)